home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 23
/
Amiga Format AFCD23 (Feb 1998, Issue 107).iso
/
-seriously_amiga-
/
shareware
/
programming
/
mui
/
mcc_monthnavigator
/
developer
/
cluster
/
txt
/
mccmonthnavigator.mod
< prev
Wrap
Text File
|
1997-12-06
|
923b
|
39 lines
|##########|
|#MAGIC #|FPIAEPCC
|#PROJECT #|"Mui"
|#PATHS #|"StdProject"
|#LINK #|""
|#GUIDE #|""
|#STACK #|"4096"
|#FLAGS #|xx---x--xxx---x-----------------
|#USERSW #|--------------------------------
|#USERMASK#|--------------------------------
|#SWITCHES#|xx----xxxx-xx---
|##########|
IMPLEMENTATION MODULE MCCMonthNavigator;
FROM MuiO IMPORT NewObjectA, MuiTagAPtr, DoMethodRef;
PROCEDURE MakeMonthNavigatorObjectA (tags : MonthNavigatorTagAPtr) : MonthNavigatorObject;
BEGIN
RETURN NewObjectA (cMonthNavigator, MuiTagAPtr(tags));
END MakeMonthNavigatorObjectA;
PROCEDURE MakeMonthNavigatorObject (tags : LIST OF MonthNavigatorTags) : MonthNavigatorObject;
BEGIN
RETURN NewObjectA (cMonthNavigator, MuiTagAPtr(tags[0]'PTR));
END MakeMonthNavigatorObject;
METHOD Update (o : MonthNavigatorObject);
BEGIN
DoMethodRef (o,MsgRoot:(mMonthNavigatorUpdate));
END Update;
END MCCMonthNavigator.